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THE SCOPE OF THIS DOCUMENT is limited to a set of rough 
application notes on the Atari Computer System Interface. 
This is a preliminary document and is subject to change 
without notice. 


1. ACS I Bus 


m 

o control signals and a bidirectional bus. 
o target does not receive a command and hold it pend- 
ing controller ready — an immediate DEVICE NOT READY 
error must be sent or the initiator will time out and 
assume controller nonexistent. 

o controller self test — recalibrate# ram check# rom 
checksum# etc. 

o self test always performed following reset — elim- 
inates need for self test command. 

o initiator could time out (duration to be determined) 
on a command and reset the target. 

o once the status byte is returned the bus is free, 
o maximum eight bus ports. 

o data transfer rate is up to 8 Mbit/sec. 



ACSI Bus Topology 



\ 


•Target Ot 


•Target 1 • 


•Target 7! 


# 


• 

• 

• 

• 

i 

• 

« 

•Device I 

•Device ! 

• 

« 

• 

• 



•Device S 

! Devi c e 



i 
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— Control and Data Signals 

C • 

i Mnemonic ! Nam* I Characteristics I 



_RST 

1 

Reset 

TTL levels* active 

low. 



A1 

1 

Address 1 

TTL levels. 



2 * 

_IRQ 

t 

Interrupt Request 

TTL levels* active 

low* 




l 

! 1 Kohm pullup on 





l 


! initiator side. 




CS 

i 

Chip Select 

1 TTL levels* active 

low. 



R/ U 

1 

« 

Read/Write 

TTL levels. 




_DRQ 

1 

Data Request 

1 TTL levels* active 

1 ow* 




t 


1 Kohm pullup on 





S 


initiator side. 




ACK 

! 

Ac knowledge 

TTL levels* active 

low. 


1 

• 

DATA 

1 

• 

Data Bus (0—7) 

TTL levels. 





Initiator ACSI Port Pin Assignments 


INITIATOR DB 19S TARGET 


1 !< Data O >•' 

2 }< Data 1 >'• 

3 | < Data 2 >' 

4 ;< Data 3 > i 

5 5< Data 4 >! 

6 ! < Data 5 >1 

7 ! < Data 6 >1 

8 ! < Data 7 > 

9 • Chip Select > 

10 !< — — Interrupt Request 

11 ! Ground 

12 ! Reset > 

13 « Ground 

14 | Acknowledge > 

15 ! Ground 

16 ! A1 > 

1 7 ! Ground 

18 ! Read/Write > 

19 !< Data Request 
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2. ACSI Compliance 


2. i. Level 1 

o target will speak only when spoken to. 
o listen to bus during idle — no disconnect, 
o abort initiator via interrupt. 

o abort target via reset — software reset must be 
provided in initiator. 

o RESET HOLD TIME is 12 microseconds. # 

o reset has highest bus priority. 

o reset cannot be asserted by a target whether active 
or inactive. 

o 100 milliseconds before initiator times out on tar- 
get acknowledgement. 

o CAVEAT: if an initiator prematurely issues a com- 

mand while the target is executing a command# then the 
results are unpr ed i c tab 1 e. 

o device driver in initiator will wait until status 

byte is returned — otherwise time out (TBD) and reset 
target. 

o after receipt of command byte# transaction belongs 
to controller. 

o target has complete control of bus until status byte 
is returned. 

o each target should have a user select controller 
number. 
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HARDWARE. 

r - 

— Command Phase 

Data direction: FROM initiator TO target. 



A1 


IRQ 


R/ W 


« 

t 


DATA 


S 




-VALID 


: <— a— 


1 

> ! 


« 

« 


i 

>< 


X 


i 

i 


I 

I 


■V AL I D 


S 

l 

X 




: <— a— > s < 


<— e— > ! 


Byte O 


Byte 1 


a) 60 ns (max) 

b) 250 ns (max) 

c) 20 ns (max) 
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Status Phase 


Data direction: FROM target TO initiator. 


A1 


IRQ 


CS 


R/ U 


DATA 


>< 


-X 


!<-a — >!< — b — >!<— c- 



3y te O 


T iming 


a 

) 

50 

ns 

(max > 

b 

) 

150 

ns 

(max ) 

c 

) 

100 

ns 

(max > 

d 

) 

80 

ns 

(max ) 


SOFTWARE. 


Control 1 er 

Select Byte 

Byte 0 

S xxx ! 


i ! i 


— — Control ler Number 




Completion Status Byte 

Byte 0 ! 1 






* • •: 4 


' * . * • 
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2. 2. Level 2 

o include Level 1. 

o TEST UNIT READY command is used as a poll, 
o NO ERROR Is to be interpreted as controller ready, 
o DEVICE NOT READY is to be interpreted as controller 

not ready. 

SOFTWARE. 


Command Descriptor Byte 
Byte 0 ! xxxxxxxx ! 

i • a » I « I i 
• ••••••• 

• • • Operation Code 

— Controller Number 


Command Summary Table 


OpCode 

i Command 

0x00 

• 

S Test Unit Ready 


Completion 
Byte 0 


Status Byte 
nnnnS 


Error Code 
Device Number 


Device Errors 

OxOO No Error 

0x04 Device Not Ready 

Miscellaneous Errors 


0x30 Controller Self Test Failed 
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2. 3. Level 3 

o include Level 1 and Level 2. 
HARDWARE. 

Data Out Phase — — — 

Data direction: FROM initiator TO target. 

A1 ' 


DRQ • 



_ACK 

DATA 


=>< 


S <-a— > 


/ 

■ 

l 





T idling 

a) 60 ns (max) 

b) 250 ns (max) 

c) 240 ns (max) 

d) 240 ns (min) 
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— Data In Phase 


C 


Data direction: FROM target TO initiator 


A1 


DRQ 

_ACK 

DATA 


\_ / 


• 

I 

I 


I • 

• a 


i a 
a a 



a 

a 

a 

a 


<-a— > 


a a 
a a 


i< 


/ 

t 

« 

-VALID ><==== 

a a 

b > ! <-c-> : 


T iming 

a > AO ns ( ma x ) 


b > 

250 ns 

(max 

c) 

50 ns 

(min ) 
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SOFTWARE. 


# 

ACS I Command Descriptor 


Byte 

0 

iXXXXXXXXl 

• • • • • i i s 
9 1 1 

• 1 1 ——————— 

Byte 

1 

! x x x x x x x x S 

» 1 9 1 1 • 1 1 

» 9 • » I • 1 1 

• 9 • 

1 » 1 — — — - 

Byte 

2 

ixxxxxxxxi 

9 9 9 9 9 9 9 1 
9 9 9 1 9 9 9 9 

Byte 

3 

! XXXXXXXX i 

9 9 9 9 9 9 9 9 

9 9 9 9 9 9 9 9 

Byte 

• 

4 

ixxxxxxxxi 

iiiiiiii 

Byte 

5 

ixxxxxxxxi 

IIIIIIII 


Block 

Operation Code 
Controller Number 

Block Address High 
Device Number 

Block Address Mid 

Block Address Lout 

Block Count 

Control Byte 


Command Summary Table 


OpCode 

1 Command 

1 

OxOO 

i Test Unit Ready 

1 

0x08 

J Read 

! * 

OxOa 

S Write 

1 * 

OxOb 

! Seek 

• 

9 

Ox la 

1 Mode Sense 

l 


* multisector transfer with implied seek 
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Command Errors 

C 5 

0x20 Invalid Command 
0x21 Invalid Address 
0x23 Volume Overflow 
0x24 Invalid Argument 
0x25 Invalid Device Number 
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3. ACSI Initiator 


o must transfer data in 16 bute increment 

° t ”“!‘ f BIOS s„ste» var iab 1 • fl"? ( 

Hitchhiker s Guide to the BIOS). 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 


Initiator Handshake Sequence 

load DMA Base Address Register. 

toggle Write/ Read to clear s hc m a « 

select DMA r.Ib „ ContoJ' X, ReSiSt "' : 

select DMA Sector Count Register (DMA Mode Control a • 4 - 
load DMA Sector Count Register (DMA ^peraJion^igge;? 1 ' 

Registe^> ntr ° ller internal command register (DMA Mode Control 

i:: U L 1 C r t :°i 1 * r select b « te b « Clearing AO to O 
set AO to 1 for remaining command bytes 

RetlltlrV C ° mmand byt * select controller (DMA Mode Control 

DMA active until sector count is zero (DMA Status Register 
do not poll during DMA active). register, 

check DMA error status (DMA Status Register) 
check controller status byte. 
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loadable 


equ 


> nonzero for loadable driver 


ST SASI hard 
(01985 Atari 


diet driver 
Corp. 


9— Apr- 
14— Apr- 
20— Apr- 
24— Jon- 
Ol-Jul 


1985 

1985 

1985 

1985 

1985 


lmd 

lmd 

lmd 

jwt 

jwt 


22- Jo 1-1985 jwt 

23— Jol— 1985 j wt 




Hacked it op. "Qee* it seems to work ..." 
linked with BIOS (***FOR NOW***) 
hacked for WO controller (now* wired. . . ) 
hacked for Adaptec* new klodge board 
seems to work* add more formatting and more 
detailed error reporting 
change timing of wdc/wdl at start of command* 
added extra move, w 48a* wdl to change A1 
ose a move. 1 instroction for all wdc/wdl write 
pairs since it changes A1 quickly enoogh that 
the (old) DMA chip does not incorrectly 
generate two chip selects - 


flock 

• qu 

443e 

i FIFO lock variable 

hdv_ini t 

• qu 

446a 

» hdv__init() 

hdv__bpb 

•qu 

4472 

i 

i hdv_bpb(dev) 

hdv^rui 

• qu 

4476 

i hdv_rw(rw* buf* count* recno. 

hdv_boot 

• qu 

447a 

i hdv_boot() 

hdv_mediach 

• qu 

447e 

» hdv_med iach ( dev) 

_drvb i ts 

• qu 

44c 2 

i block device bitVector 

_dskbuf p 

• qu 

44c 6 

i pointer to common disk buffer 

nrotr ics 

• qu 

3 

i #retries-l 


dev) 


* — 


. globl 
i : bra 

dc. b 


— Installer 

i_sasi "" 

i_sasi2 

'«<#>ahdx vO. 04', 40d* 40a, 0. 41A 


— Front End 


* LONG hbpb(dev) - return ptr to BPB (or NULL) 
» 

* Passed: dev 4f«a) u 


* 

*— 

hbpb : 


4( sp ) . W 


move, w 4( sp ) , dO 
move. 1 o_bpb*aO 


* dO ■ devno 

* aO -> pass 


—through vector 
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c 


c 


lei c 

_sasi_bpb ( pc ) # al 

l 

al — > our handler 

bra 

chec k_dev 

• 

» 

do it 




• 

* LONG rw(rui# 1 

buf# count# recnoi dev) 



* 




* Passed: 

dev $e ( sp ) . U 



* 

recno $c ( sp ) . W 



» 

count $a ( sp ). W 



* 

buf 6( sp ) . L 



* 

rui 4 ( sp ) . W 



* 




*— 




hrui: 




move, w 

$e < sp ) # dO 

% 

$ 

dO * devno 

move. 1 

o_jrui# aO 

0 

$ 

aO — > pass-through 

. lea 

_sasi_rw( pc ) # al 

i 

al — > our handler 

bra 

chec k_d*v 

• 

i 

do it 


• 



* LONG mediach(dev) 



* 




* Passed: 

dev 4< sp ) . W 



* 




hmed iach : 




move, m 

4( sp ) . dO 

l 

dO • devno 

move. 1 

o_med iac h, aO 

I 

aO -> pass-through 

lea 

_sasi_med iach (pc )* al 

1 

al — > our handler 

*+ 




* check_dev - 

use handler* or pass vector 

through 

* 




* Passed: 

dO. w • device# 



* 

aO — > old handler 



« 

al -> new handler 



* 

a5 -> #0000 (zero-page ptr) 

* * 




* Jumps-to: 

(al) if dev in range 

for 

this handler 

* 

(aO) otherwise 



» 


w 


check^dev: 




cmp. m 

#2* dO 

i 

devnos match? 

bne 

ch kd_f 

1 

(no) 

move. 1 

al* aO 

1 

yes — follow sue c 1 

chkd_f: jmp 

(aO) 

1 

do it 


vector 


vector 


ess vector 



Medium level driver 


pntinnnmii 


+ - 




r ^.“f. • 

«. __*«*i_init ~ initialize SASI dev 
e Passed: 150th ing 

e Returns: dO < O: error 

# dO “O: success 

• function performed by _hinit. . . . 
e let me have a forward reference 


noth ing 
(10 < 0 : 


and 

her 


the assembler won't 


. globl 
i_init: equ 


i_init 

h ini t 


* _*asi_bpb - return BPB for hard drive 

* Synopsis: LONG _sasi_bpb < dev) 

* WORD devi 


* Returns: NULL# or a 

* 

*— 

. globl _sasi_bpb 
_sasi_bpb : 

move. 1 #thebpb# dO 
rt» 


NULL# or a pointer to the BPB buffer 


* _sasi_ rui - r 

* Synopsis: 

« 

* Passed: 

* 

♦ 

* 

* 

* 

♦— 


sasrwl : 


sasrw 3 : 


d/uirite hard sectors 
sasi rw(rw# buf# count# recno# dev) 


dev 

recno 

count 

buf 


*e ( sp ) . W 
%c ( sp ) . W 
%a ( sp ) . W 
6 ( sp ) . L 


. globl 

1: 

move, w 

rui 4 ( sp ) . W 

_sasi_rw 

) 

non— zero -> write 

#nretries» retrycnt 

1 

setup retry counter 

moveq 

# 0 # dO 

1 

coerce word to long 

move, w 

*c ( sp ) # dO 

$ 

sect. L 

move, ui 

$a < sp ) # d 1 

i 

count. W 

move. 1 

6( sp ) 1 d2 

i 

buf. L 

move, ui 

4 < sp ) • d 3 

• 

1 

rw 

clr. ui 

— ( sp ) 

i 

dev =* 0 

move. 1 

d2# -<sp ) 

1 

buf 

move, ui 

d 1# -< sp ) 

• 

# 

count 

move. 1 

dO# -< sp ) 

1 

sect 

tst. UI 

d 3 

• 

# 

read or write? 

bne 

sasrui 3 

• 

# 

(write) 

bsr 

_hr ead 

l 

read sectors 

bra 

sasrui2 


- • 

b sr 

_h wr i t e 

e 

l 

write sectors 


) 
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sasrw2: adder u> #12# sp 

tst.'l dO 
beq sasrwr 

subq. ui #1# retryent 
bpl sasrul 


• (cl eanup stack) 
i errors? 

» no — success 
i drop retry count and retry 


sasrwr: rts 


* _sasi_med iach 

* Synopsis: 

* 

* 

* Returns: 

* 

*— 

. globl 
_sasi_med iach: 

c lr. 1 
rts 


— see if hard disk 
_sasi_med iach(dev) 
WORD dev# 

OL 


_sasi_med iach 
dO 


media has changed 


(it never does) 


* BPB for 10MB drive 

* Approximate only. Tuieak me. 

* 


thebpb : 


dc. ui 

512 

— 

i 

dc. ui 

2 


1 

dc. ui 

1024 


i 

dc. ui 

16 


i 

dc. ui 

41 


$ 

dc. ui 

42 


• 

$ 

dc. ui 

99 


i 

dc. w 

10300 


i 

dc. ui 

1 


i 


#by tes/sec tor 
#sect or s/cluster 
tbytes/cluster 

rdlen (256 root files) (in sector 
FAT s i z (10300 FAT entries) ( sec to 
2nd FAT start 
data start (in sectors) 

♦dusters (approximate here) 
flags (16-bit FATs) 


Low— 1 evel 


driver 


Clobals 

lock 
hz 200 


equ 

equ 


*43 e 
*4ba 


i FIFO lock variable 
i 200 hi system ticker 


* Hardware: 

wdc equ 
wd 1 equ 
wdcwdl equ 
dmahi equ 
dmami d equ 


*f f 8604 
*f f 8606 

wdc i 

*f f 8609 
dmah i+2 


used for long writes 


rnunncumi 


I MMM 


■ ' 

?8wSe&« v «sTj. > ,-. 


iK 




■ m&.‘. m 

_ « 






•qu 
• qu 


d mam id +2 
*fffa01 


• qu 

• qu 


*80000 

*80000 


i long— timeout 
»• short-timeout 


LONO _qdone() - Wait for operation complete 
Passed: nothing 


Returns 


EG: no timeout 

MI: timeout condition 


Uses 


00 


move. 1 
subq. 1 
bmi 

move, b 
and. b 
bne 

moveq 

rts 


#ltimeout< tocount 

#1. tocount 

qdq 

gp ip. dO 
**20. dO 
qd 1 

*0. dO 


i drop timeout count 
i (i give up. return NE) 
» interrupt? 

i (not get) 

i return EG (no timeout) 


"WORD _endcmd() 

Wait for end of SASI command 
i Passed: dO value to be 


written to wdl 


Returns: 


! Uses: 

endemd: move 

bsr 

bmi 


EQ: success (error code in DO. U) 

hi: timeout 

NE: failure (SASI error code in DO. W) 


dOp dl 

dO# dl 

_jldone 

endee 


move, in d 1 # wd 1 
nop 

move, in Hide# dO 
and. w #$00ff # dO 


i preserve uidl value 

# wait for operation complete 
; (timed— out# so complain) 


ndee: rts 


i get the result 

; (clean it up)# if non— zero should 
i do a ReadSense command to learn more 




h ini t (dev) 
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* WORD dev; { * 

* Initialize hard disk 


* Returns: 

* 


-1 if hard disk not there 


. 9 lob 1 _sasi init 

_sa.si_ini t: 

_h i n i t : 


pea 
b sr 


ac tur 
_dosah d x c 


addq. 1 # 4 , sp 

r ts 


' push test unit read command block 


* _hread<sectno, count, 

* LONG sectnoj 

* WORD count; 

* LONG buf; 

* WORD dev; 

* 

* Returns: -1 on t 

* 0 on su 

* nonzero 

* 


buf, d ev ) 

4< sp ) 

8( sp ) 

*a<sp) *b=h igh, *c=mid, 
*e<sp> 

meout 

cess 

on error 


td^loui 


*— 


. g lob 1 

bread 

_hr«ad: 


st 

flock 


move 

#*88, wd 1 


move. 1 

#*0008008a. wdc wdl 


move. 1 

♦a ( sp >, -<sp > 


bsr 

_s e t d ma 


addq 

#4, sp 


bsr 

_setss 


bmi 

_hto 


move, in 

#*190, wdl 


nop 

move. ui 

#*90. wd 1 


nop 

move, in 

8 ( sp ) , wd c 


nop 

move, ui 

#*8a, wdl 


nop 

move. 1 

#*00000000, wdewd 1 


move, te 

•*8a. dO 


bsr 

__endcmd 

hr x : 

bra 

hdone 


» lock FIFO 

; 08 lade* 8« wdl 
i set DMA address 

; set sector and size 

; write sector count to DMA chip 
; control byte O wdc 0 wdl 

; cleanup after IRQ 


pniucincMTMi 


V.; ,• . . 


KkSk 


•'■ I!/- 


* hu»r ite ( sec tno. count, buf. dev) 


— - ~ " — ~ 

* long sectnoi 

* WORD count# 

* LONG b u ftf 


4< sp ) 
8 ( sp > 
$a < sp ) 


$b=high# $c=mid# $d=low 


• *> 

* 

WORD devi 

$e ( sp ) 

* 



#— 



. g lob 1 

_h write 

huir i te: 


% 

5 t 

flock 


move. 1 

$a ( sp ) # - < sp ) 


b sr 

_se t dma 


addq 

#4# sp 


move, j 

#$88. wd 1 


move. 1 

#$000a008a# wdcwd 1 


b sr 

_setss 


bmi 

_h t o 


move, w 

#$90. wd 1 


nop 



move, w 

#$190. uid 1 


nop 



move, w 

8 ( sp ) # wd c 


nop 



move, w 

#$18a# wd 1 


nop 


. A 'jJ \ " 

move. 1 

#$00000100# wdcwd 1 


move, ui 

#$18a, dO 

•f 

b sr 

__end cmd 

hwx: bra 

_hdone 

*+ 


* 

uid format - 

format WD hard dis 

* 

Passed: 

nothing 

* 

Returns : 

0# or -N 

* 

Uses: 

<1. . > 

* 



* 

- 



. g 1 ob 1 

_wd_f orma t 


wd_f orma t : 1 ea 

ac f mt # aO 


clr. u 

dO 


s t 

flock 

‘ ■ i 

move, ui 

#$88, uid 1 


move, b 

(aO)+# dO 

•:* : » 

' S .. e* •> ' ‘ -»* W 

swap 

dO 

;? . 

move, w 

#$8a, dO 


move. 1 

dOi wd c 

■ ' # «! sBT . 



■ '■:«} - 

move q 

#(5-1 ) i d 1 


# lock FIFO 

# set DMA address 


# Oa uidc 8a wd 1 


# sector count for DMA cf 


# cleanup after IRQ 


; pick up pointer to the 
; lock FIFO 

; get the command byte 

; byte wd c 8a wd 1 
; write remaining 5 byte 
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*nt 1 : b st 

^_qdone 

bmi 

_h to 

move, b 

(aO)+, dO 

swap 

dO 

move, w 

#*Sa, dO 

move. 1 

dO< wdcwd 1 

dbra 

d 1 . f mt 1 

mt2: btst 

#5. gp.ip 

bne 

fmt2 

move, w 

wdc, dO 

and i. w 

#*OOFF, dO 

bra 

_h d one 

4- 

_wd_setup - setup parameters for 

. g lob 1 

_wd setup 

wd__setup : 

st 

flock 

pea 

adap__parms(pc) 

bsr 

_setdma 

addq 

#4, sp 

move, w 

#*88, uid 1 

move. 1 

#*001 5008a, wdcwd 1 

bsr 

_qdone 

bmi 

uid x 

move. 1 

#*0000008a, uid c uid 1 

bsr 

_qdone 

bmi 

uid x 

move. 1 

#*0000008a, wdcwd 1 

bsr 

_qdone 

bmi 

wd x 

move. 1 

#*0000008a, wdcwd 1 

bsr 

__qdone 

bmi 

wd x 

move. 1 

#*00 16008a, wdcwd 1 

• 

bsr 

_ qdone 

bmi 

wd x 

move, w 

#*90, wd 1 

nop 

move, w 

**190. wdl 

nop 

move, w 

#*01, wdc 

nop 

move, w 

#*18a# wd 1 

nop 

move. 1 

**00000 1 00. wdc wd 1 

move, w 

**18a. dO 


* (presumes only one unit) 
i next byte of command 

- wait (forever) for completion 

» get the status 
; only low byte is significant 

» cleanup after IRQ 
WO hard disk 


i mode select command 15 wdc 8a wdl 


i 22 bytes of parameters 
i reset the DMA chip 

i 1 sector of DMA (actually less) 

i control byte 
i uid 1 value 


nnnrinriiTi ai 



bsr 

_endcmd 




lx: 

bra 

_hdone 




parameters 

for 10MB WD 




Jap_parms: dc. 

b *00, <*00. *00 

, *08, *00. *00, 

*00, *00, *00, *00 


dc. b 

*02, *00, *01, 

*02, *62, *02 

, *01, *00. *01. *00, *00, *02 

► 

LONG 

_dosahdxc( addr ) BYTE »addri 




do a simple (no DMA) 

ahdx command 



. g lob 1 

^dosahdxc 

e 

• 



dosahdxc: movea. 1 4(sp)#a0 


j 

pick up pointer to the 


Cl TV w 

dO 





s t 

flock 


• 

# 

lock FIFO 


move, w 

#*88. uid 1 





move, b 

(a0>+, dO’ 


a 

t 

get the command byte 


swap 

dO 





move, iai 

#*8a. dO 





move. 1 

dO, wd c wd 1 

• 


• 

1 

send it to the controll 


moveq 

#(5-1 ), dl 


a 

0 

write remaining 5 butes 

osac 1 : 

b ST 

__qd one 


a 

0 

(presumes only one uni 


bmi 

t o 





move, b 

(aO)>, dO 


a 

0 

next byte of command 


swap 

dO 





move, w 

#$8a, dO 





move. 1 

dO# wd c wd 1 





d bra 

d 1 # d osac 1 



* 


b sr 

_qd one 


• 

0 

wait for the command to 


bmi 

_h to 





move, w 

wdc# dO 


• 

0 

get the status 


and i . w 

#S00 FF# dO 


a 

i 

only low byte is signif 


bra 

_hdone 


a 

# 

cleanup after IRQ 

r + 






t* void 

_setdma(addr) 




f* LONG 

L _ 

addr# 





r 

_5 e t dma 

a 

• 






move, b 

7 ( sp ) # dma 1 ow 





move, b 

6 ( s p ) # dmami d 





move, b 

5 < sp ) # dmah i 





r t s 





f-f- 






* WORD 

s e t s s 

— set sector 

number and 

number of sectors 

b— 






_setss: 

move, w 

#*8a# wd 1 





a 
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bsr. , 

_qdone 

• 

1 

wait for controller 

to take commar 

bmi 

setsse 




move, b 

9< sp ) » dO 

• 

$ 

construct sector# 


move, b 

#e ( sp ) . d 1 

• 

$ 

ORed with devno 


lsl. b 

#5. dl 




or. b 

dl. dO 




swap 

dO 




move, w 

##008a. dO 




move. 1 

dO. wdcwd 1 

i 

write MSB sector# + 

d evno 

b sr 

_qdone 




bmi 

setsse 



• 

move, b 

10< sp ) . dO 

• 

1 

write MidSB sector# 


swap 

dO 




move, w 

##008a< dO 




move. 1 

dO. wdcwd 1 




bsr 

_qdone 




bmi 

setsse 





move, b 

1 1 ( sp ) . dO 

swap 

dO 

move, w 

##008a» dO 

move. 1 

dO. wdcwd 1 

bsr 

_qdone 

bmi 

setsse 

move, w 

12( sp ) . dO 

swap 

dO 

move, w 

#*008a> dO 

move. 1 

dO. wdcwd 1 

bsr 

_qdone 

setsse: rts 

_hto: moveq 

#-l» dO 

_hdone: move, w 

##80. wd 1 

nop 

tst. w 

wdc 

c lr 

flock 

rts 

savssp : 

dc. 1 1 

tocount : 

dc. 1 1 

retry cnt: 

dc. w 1 

o_init: 

dc. 1 1 

o_bpb: 

dc. 1 1 

o_j re: 

dc. 1 1 

o mediach: 

dc. 1 1 


i write LSB sector# 


i write sector count 


t indicate timeout 

i Landon's code seems to presume w< 
i put this back to #80 

> NOW. signal that we are done 


i (saved SSP) 
i timeout counter 
i retry counter 


i sasi2: nop 


ifne loadable 

c lr. 1 -< sp ) 

move, w ##20. — (sp) 
trap #1 


i i t 's a b ird. . . 
j ... it's i plane . . . 
j ... no. its: 


MNFinFNTIAI 


addq 
move. 1 


#6j sp 
dOi fa 


endc 


bsr 
tst. «y 
bn» 

clr. 1 
or. 1 
or. 1 
movt. 1 

c It. I 
move. 1 
move. 1 
move. 1 

move. 1 
move. 1 


_s4si_ini t 
dO 


i SOOUPERUSER ! 

• "Faster than a prefetched opcode. . . " 

I 

i .kick controller 

# punt — disk didn't respond correctly 


dO 

_drvb i ts# dO j 

#$4# dO 

dO#_drvbits 

a5 i 

hdv_bpb <a5)# o_bpb 
hdv_jrui(a5) # o_jrui 
hdv_med iach (a5) # o_mediach 

#hbpb» hdv_bpb(a5) 

#hrui# hdv rui(a5) 


) include C: bit in devVector 


zeropage ptr 

i save old vectors 


i install our new ones 



move. 1 

#hm»d iach. hdv 

__med iach (a5) 

i sasq: 

nop 


# stupid assembler 

i f ne 

loadab le 




move. 1 

savsspi — ( sp ) 

i become a mild mannered 


move, ui 

#♦20. -(sp) 



trap 

#1 

• 


addq 

#6. sp 


endc 




i f ne 

loadab le 




move, ui 

#0. - (sp ) 

# exit code 


move. 1 

#( ( i sasi2— i 

sas i ) +$0100 ) # — ( sp ) i save code# data 


move, ui 

#♦31, -(sp > 

; terminate and stay resident 


trap 

#1 

; should never come back. . . 

endc 

r t s 



i sase: 

1 ea 

nodmsg, aO 



b sr 

msg 



& basepage 


i f ne 


endc 


1 oadab 1 e 
move. 1 
move, ui 
trap 
addq 


savsspi - ( sp ) 
#$20# -(sp) 

#1 

#6# sp 


i become a mild mannered user process 


move, w 
move, w 
trap 

move. 1 
move, ui 


#1# — ( sp ) 
#$4c# — < sp ) 
#1 

aO# -( sp ) 
#9# - ( sp ) 


# flag error status 
# terminate 


; print null terminated string 
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trap 
^ddq. 1 
r t s 

CL 

lA 

>6 

# * 



actur: 

acfmt: 

dc. b 
dc. b 

0# 0# 0# Oi Oi 0 

4» 0# 0# Oj 1 i 0 

i atari command: 

• 

i 

test unit ready 
format disk 

nodmsg : 

dc. b 

'No AHDX disk 

response. '» $Odi $Oai 0 

% 


. even 





end 

• 






r» n u n n run 1 1 


